home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / OCCPS45 / OCCPS.PPD < prev    next >
Text File  |  1995-11-15  |  14KB  |  448 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.20 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     STRING     VAR005
  15.     STRING     VAR006
  16.     INTEGER    VAR007
  17.     INTEGER    VAR008
  18.     INTEGER    VAR009
  19.     STRING     VAR010
  20.     STRING     VAR011
  21.     STRING     VAR012
  22.     STRING     VAR013
  23.     STRING     VAR014
  24.     STRING     VAR015
  25.     STRING     VAR016
  26.     STRING     VAR017
  27.     STRING     VAR018
  28.     STRING     VAR019
  29.     STRING     VAR020
  30.     STRING     VAR021
  31.     STRING     VAR022
  32.     STRING     VAR023
  33.     STRING     VAR024
  34.     STRING     VAR025
  35.     STRING     VAR026
  36.     MONEY      VAR027
  37.     INTEGER    VAR028
  38.     INTEGER    VAR029
  39.     INTEGER    VAR030
  40.     STRING     VAR031
  41.     STRING     VAR032
  42.     STRING     VAR033
  43.     STRING     VAR034
  44.     STRING     VAR035
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     LET VAR001=PPEPATH()+"SECURE"+STRING(CURSEC())
  49.     IF (!EXIST(VAR001)) GOTO LABEL000
  50.     DISPFILE PPEPATH()+"SECURE",2+1+4
  51.     DELAY 91
  52.     END 
  53.  
  54.  
  55. :LABEL000
  56.     LET VAR002=PPEPATH()+"OCCPS.CFG"
  57.     LET VAR003=READLINE(VAR002,1)
  58.     LET VAR004=READLINE(VAR002,2)
  59.     LET VAR005=READLINE(VAR002,3)
  60.     LET VAR007=ASC(MID(VAR003,1,1))+ASC(MID(VAR003,2,1))+ASC(MID(VAR003,3,1))+ASC(MID(VAR003,4,1))+ASC(MID(VAR003,5,1))+ASC(MID(VAR003,6,1))+ASC(MID(VAR003,7,1))+ASC(MID(VAR003,8,1))+ASC(MID(VAR003,9,1))+ASC(MID(VAR003,10,1))
  61.     LET VAR008=ASC(MID(VAR004,1,1))+ASC(MID(VAR004,2,1))+ASC(MID(VAR004,3,1))+ASC(MID(VAR004,4,1))+ASC(MID(VAR004,5,1))+ASC(MID(VAR004,6,1))+ASC(MID(VAR004,7,1))+ASC(MID(VAR004,8,1))
  62.     LET VAR009=ASC(MID(VAR003,11,1))+ASC(MID(VAR003,12,1))+ASC(MID(VAR003,13,1))+ASC(MID(VAR003,14,1))+ASC(MID(VAR003,15,1))+ASC(MID(VAR003,16,1))+ASC(MID(VAR003,17,1))+ASC(MID(VAR003,18,1))+ASC(MID(VAR003,19,1))+ASC(MID(VAR003,20,1))
  63.     LET VAR006=STRING(VAR007)+STRING(VAR008)+STRING(VAR009)
  64.     CLS 
  65.     PRINTLN ""
  66.     PRINTLN "      @X7F ┌───────────────────────────────────────────────────────────────@X70┐ @X0F"
  67.     PRINTLN "      @X7F │ @X70           ONLINE CREDIT CARD PROCESSOR SYSTEM 4.5            @X70│ @X0F"
  68.     PRINTLN "      @X7F │ @X70        @BOARDNAME:45C@      @POS:72@@X70│ @X0F"
  69.     PRINTLN "      @X7F │                                                               @X70│ @X0F"
  70.     GOTO LABEL001
  71.  
  72. :LABEL001
  73.     PRINTLN "      @X7F │ @X71The use of an invalid credit card or unauthorized use of one  @X70│ @X0F"
  74.     PRINTLN "      @X7F │ @X71for the purpose of accessing this board constitutes fraud and @X70│ @X0F"
  75.     PRINTLN "      @X7F │ @X71will be reported to the proper law enforcement agencies.      @X70│ @X0F"
  76.     PRINTLN "      @X7F └@X70───────────────────────────────────────────────────────────────┘ @X0F"
  77.     PRINTLN ""
  78.     PRINTLN "      @X4F ┌───────────────────────────────────────────────────────────────@X40┐ @X0F"
  79.     PRINTLN "      @X4F │ @X40Registering with a credit card you will receive an @X4FIMMEDIATE  @X40│ @X0F"
  80.     PRINTLN "      @X4F │ @X40access upgrade for use during this session.                   @X40│ @X0F"
  81.     PRINTLN "      @X4F └@X40───────────────────────────────────────────────────────────────┘ @X0F"
  82.     PRINTLN ""
  83.     PRINTLN "           @X13 ┌─────────────────────────────────────────────────────@X10┐ @X0F"
  84.     PRINTLN "           @X13 │ @X1EType @X1D1@X1E to Register using your credit card.          @X10│ @X0F"
  85.     PRINTLN "           @X13 │ @X1EType @X1D2 @X1Eto Order Products with a credit card.        @X10│ @X0F"
  86.     PRINTLN "           @X13 │ @X1EType @X1D3 @X1Eto Download REGISTER.ZIP and send by mail.   @X10│ @X0F"
  87.     PRINTLN "           @X13 └@X10-────────────────────────────────────────────────────┘ @X0F"
  88.     PRINTLN ""
  89.     LET VAR010=""
  90.     INPUTSTR "@X0BWhich type registration would you prefer (@X0D1@X0B-@X0D3@X0B)@X07",VAR010,10,1,"123",270
  91.     IF (!(VAR010="1")) GOTO LABEL002
  92.     LOG "*** Entered OCCPS with Credit Card Option ***",0
  93.     GOSUB LABEL005
  94.     GOTO LABEL005
  95.  
  96. :LABEL002
  97.     IF (!(VAR010="2")) GOTO LABEL003
  98.     LOG "*** Entered Product Ordering section of OCCPS ***",0
  99.     CALL PPEPATH()+"PRODUCT.PPE"
  100.     GOSUB LABEL000
  101.     GOTO LABEL005
  102.  
  103. :LABEL003
  104.     IF (!(VAR010="3")) GOTO LABEL004
  105.     LOG "*** Downloaded registration form via OCCPS ***",0
  106.     KBDSTUFF "D;REGISTER.ZIP"+CHR(13)
  107.     END 
  108.  
  109.  
  110. :LABEL004
  111.     END 
  112.  
  113.  
  114. :LABEL005
  115.     CLS 
  116.     DISPFILE PPEPATH()+"CATLOG",2+1+4
  117.     FAPPEND 1,PPEPATH()+"CHARGE.LOG",O_RW,S_DB
  118.     LET VAR028=""
  119.     INPUTINT "@X0B(@X0D#@X0B-@X0D##@X0B) of Selection, (@X0DEnter@X0B) TO Quit @X07",VAR028,10
  120.     PRINTLN ""
  121.     IF (!(!(VAR028=""))) GOTO LABEL008
  122.     LET VAR029=LEFT(READLINE(VAR002,(VAR028+3)),3)
  123.     LET VAR030=MID(READLINE(VAR002,(VAR028+3)),5,3)
  124.     LET VAR027=RIGHT(READLINE(VAR002,(VAR028+3)),7)
  125.     IF (!(VAR029=0)) GOTO LABEL006
  126.     GOSUB LABEL005
  127.  
  128. :LABEL006
  129.     LOG "*** Placed order for Selection No "+STRING(VAR028)+" via OCCPS ***",0
  130.     FPUTLN 1,"********************** OCCPS v4.5 (Registered) *********************"
  131.     GOTO LABEL007
  132.  
  133. :LABEL007
  134.     FPUTLN 1,"ORDERED:  Selection No "+STRING(VAR028)+"     Amount: "+STRING(VAR027)
  135.     FPUTLN 1,"Level "+STRING(VAR029)+" Subscription"
  136.     FPUTLN 1," "
  137.     GOTO LABEL009
  138.  
  139. :LABEL008
  140.     CLS 
  141.     FCLOSE 1
  142.     GOSUB LABEL000
  143.  
  144. :LABEL009
  145.     INPUTCC "Enter credit card number",VAR011,15
  146.     IF (!(VAR011="")) GOTO LABEL010
  147.     CLS 
  148.     FCLOSE 1
  149.     END 
  150.  
  151.  
  152. :LABEL010
  153.     LET VAR031=PPEPATH()+"BADCARD.DAT"
  154.     FOPEN 3,VAR031,O_RD,S_DW
  155.  
  156. :LABEL011
  157.     IF (!(!FERR(3))) GOTO LABEL013
  158.     FGET 3,VAR032
  159.     IF (!(VAR011=VAR032)) GOTO LABEL012
  160.     LOG "Attempted to use a credit card from the BADCARD.DAT file",0
  161.     PRINTLN ""
  162.     PRINTLN ""
  163.     PRINTLN "        @X8FYou have attempted to use a credit card previously identified"
  164.     PRINTLN "                            @X8Fas @X8CUNCOLLECTABLE"
  165.     PRINTLN ""
  166.     DELAY 91
  167.     FCLOSE 3
  168.     LET VAR011=""
  169.     GOTO LABEL005
  170.  
  171. :LABEL012
  172.     GOTO LABEL011
  173.  
  174. :LABEL013
  175.     IF (!(VALCC(VAR011)&(CCTYPE(VAR011)<>"UNKNOWN"))) GOTO LABEL017
  176.     LET VAR033=PPEPATH()+"CCARDS.CFG"
  177.     FOPEN 2,VAR033,O_RD,S_DW
  178.  
  179. :LABEL014
  180.     IF (!(!FERR(2))) GOTO LABEL016
  181.     FGET 2,VAR034
  182.     IF (!(RTRIM(LEFT(CCTYPE(VAR011),20)," ")=VAR034)) GOTO LABEL015
  183.     FCLOSE 2
  184.     GOSUB LABEL018
  185.  
  186. :LABEL015
  187.     GOTO LABEL014
  188.  
  189. :LABEL016
  190.     FCLOSE 2
  191.     PRINTLN ""
  192.     PRINTLN ""
  193.     PRINTLN "@X0ECurrently we are not able to accept @X0B",LEFT(CCTYPE(VAR011),20)
  194.     PRINTLN "@X0EPlease use a different card or register by mail"
  195.     PRINTLN ""
  196.     LOG "Attempted to use a "+LEFT(CCTYPE(VAR011),20)+" Credit Card",0
  197.     WAIT 
  198.     LET VAR011=""
  199.     GOTO LABEL005
  200.  
  201. :LABEL017
  202.     PRINTLN ""
  203.     PRINTLN ""
  204.     PRINTLN "@X0EThis is an @X0CINVALID @X0ECredit Card number!"
  205.     PRINTLN ""
  206.     DELAY 91
  207.     LOG "Attempted to use an INVALID Credit Card number",0
  208.     LET VAR011=""
  209.     GOTO LABEL005
  210.  
  211. :LABEL018
  212.     PRINTLN ""
  213.     PRINTLN "@X0EThis card was issued by:  @X0B",LEFT(CCTYPE(VAR011),20)
  214.     PRINTLN "@X0E  The account number is:  @X0B",FMTCC(VAR011)
  215.     FPUTLN 1,"                User: "+U_NAME()
  216.     FPUTLN 1,"                Date: "+STRING(DATE())+" ("+STRING(TIME())+")"
  217.     FPUTLN 1,"           Card Type: "+LEFT(CCTYPE(VAR011),20)
  218.     FPUTLN 1,"         Card Number: "+FMTCC(VAR011)
  219.  
  220. :LABEL019
  221.     LET VAR013=""
  222.     PRINTLN ""
  223.     PRINTLN "@X0EEnter the Card Expiration Date (MM/YY as shown on card using leading zeros)"
  224.     INPUTSTR "",VAR013,11,5,"0123456789"+"/",NEWLINE
  225.     IF (!(VAR013="99/99")) GOTO LABEL020
  226.     END 
  227.  
  228.  
  229. :LABEL020
  230.     LET VAR025=MID(VAR013,4,2)
  231.     LET VAR024=MID(VAR013,1,2)
  232.     LET VAR026=VAR025+"/"+VAR024
  233.     LET VAR022=STRING(YEAR(DATE()))
  234.     IF (!(MONTH(DATE())<10)) GOTO LABEL021
  235.     LET VAR021="0"+STRING(MONTH(DATE()))
  236.     GOTO LABEL022
  237.  
  238. :LABEL021
  239.     LET VAR021=STRING(MONTH(DATE()))
  240.  
  241. :LABEL022
  242.     LET VAR023=RIGHT(VAR022,2)+"/"+VAR021
  243.     IF (!(VAR013="")) GOTO LABEL023
  244.     PRINTLN "@X8CEntry Required for Processing"
  245.     GOSUB LABEL019
  246.     GOTO LABEL024
  247.  
  248. :LABEL023
  249.     IF (!(VAR026<VAR023)) GOTO LABEL024
  250.     PRINTLN "@X8CYou have entered an Expired Card!  Are you using leading zeros?"
  251.     LOG "Attempted to use an EXPIRED Credit Card dated: "+VAR013,0
  252.     GOSUB LABEL019
  253.  
  254. :LABEL024
  255.     FPUTLN 1,"     Expiration Date: "+VAR013
  256.     FPUTLN 1," "
  257.  
  258. :LABEL025
  259.     LET VAR012=""
  260.     PRINTLN ""
  261.     PRINTLN "@X0EEnter the Cardholder's Name (as shown on card)"
  262.     INPUTSTR "",VAR012,11,25,MASK_ALNUM()+" "+".",NEWLINE
  263.     IF (!(VAR012="")) GOTO LABEL026
  264.     PRINTLN "@X8CEntry Required for Processing"
  265.     GOSUB LABEL025
  266.  
  267. :LABEL026
  268.     FPUTLN 1,"   Cardholder's Name: "+VAR012
  269.  
  270. :LABEL027
  271.     LET VAR014=""
  272.     PRINTLN ""
  273.     PRINTLN "@X0ECardholder's Street Address (Line 1)"
  274.     INPUTSTR "",VAR014,11,25,MASK_ALNUM()+" ",NEWLINE
  275.     IF (!(VAR014="")) GOTO LABEL028
  276.     PRINTLN "@X8CEntry Required for Processing"
  277.     GOSUB LABEL027
  278.  
  279. :LABEL028
  280.     FPUTLN 1,"Cardholder's Address: "+VAR014
  281.     LET VAR015=""
  282.     PRINTLN ""
  283.     PRINTLN "@X0ECardholder's Suite or Apartment Number"
  284.     INPUTSTR "",VAR015,11,25,MASK_ALNUM()+" ",NEWLINE
  285.     IF (!(VAR015<>"")) GOTO LABEL029
  286.     FPUTLN 1,"                    : "+VAR015
  287.  
  288. :LABEL029
  289.     LET VAR016=""
  290.     PRINTLN ""
  291.     PRINTLN "@X0ECardholder's City (without state)"
  292.     INPUTSTR "",VAR016,11,25,MASK_ALNUM()+" ",NEWLINE
  293.     IF (!(VAR016="")) GOTO LABEL030
  294.     PRINTLN "@X8CEntry Required for Processing"
  295.     GOSUB LABEL029
  296.  
  297. :LABEL030
  298.     LET VAR017=""
  299.     PRINTLN ""
  300.     PRINTLN "@X0ECardholder's State"
  301.     INPUTSTR "",VAR017,11,4,MASK_ALPHA(),NEWLINE
  302.     IF (!(VAR017="")) GOTO LABEL031
  303.     PRINTLN "@X8CEntry Required for Processing"
  304.     GOSUB LABEL030
  305.  
  306. :LABEL031
  307.     LET VAR018=""
  308.     PRINTLN ""
  309.     PRINTLN "@X0ECardholder's Zip Code"
  310.     INPUTSTR "",VAR018,11,10,MASK_ALNUM()+"-",NEWLINE
  311.     IF (!(VAR018="")) GOTO LABEL032
  312.     PRINTLN "@X8CEntry Required for Processing"
  313.     GOSUB LABEL031
  314.  
  315. :LABEL032
  316.     FPUTLN 1,"                    : "+VAR016+", "+VAR017+"  "+VAR018
  317.  
  318. :LABEL033
  319.     LET VAR019=""
  320.     PRINTLN ""
  321.     PRINTLN "@X0ECardholder's Home Phone Number"
  322.     INPUTSTR "",VAR019,11,12,MASK_NUM()+"-",NEWLINE
  323.     IF (!(VAR019="")) GOTO LABEL034
  324.     PRINTLN "@X8CEntry Required for Processing"
  325.     GOSUB LABEL033
  326.  
  327. :LABEL034
  328.     FPUTLN 1,"   Home Phone Number: "+VAR019
  329.  
  330. :LABEL035
  331.     LET VAR020=""
  332.     PRINTLN ""
  333.     PRINTLN "@X0ECardholder's Work Phone Number"
  334.     INPUTSTR "",VAR020,11,12,MASK_NUM()+"-",NEWLINE
  335.     IF (!(VAR020="")) GOTO LABEL036
  336.     PRINTLN "@X8CEntry Required for Processing"
  337.     GOSUB LABEL035
  338.  
  339. :LABEL036
  340.     FPUTLN 1,"   Work Phone Number: "+VAR020
  341.     FPUTLN 1," "
  342.     FPUTLN 1,"Credit Card Processing Completed Normally"
  343.     FCLOSE 1
  344.     PRINTLN ""
  345.     GETUSER 
  346.     IF (!(CURSEC()<VAR029)) GOTO LABEL037
  347.     PRINTLN "Raising your security access to level "+STRING(VAR029)+"..."
  348.     LET U_SEC=VAR029
  349.     LET U_EXPDATE=DATE()+VAR030
  350.     PRINTLN ""
  351.     PRINTLN "Automatic upgrade Complete!"
  352.     GOTO LABEL039
  353.  
  354. :LABEL037
  355.     IF (!(CURSEC()=VAR029)) GOTO LABEL038
  356.     PRINTLN "Extending your level "+STRING(VAR029)+" security access..."
  357.     LET U_EXPDATE=U_EXPDATE+VAR030
  358.     PRINTLN ""
  359.     PRINTLN "Automatic upgrade Complete!"
  360.     GOTO LABEL039
  361.  
  362. :LABEL038
  363.     PRINTLN "Level requested is lower than existing level"
  364.     PRINTLN "No change in level made"
  365.     MESSAGE 0,"SYSOP","OCCPS","Security Level Conflict","R",0,0,0,PPEPATH()+"CONFLICT.TXT"
  366.  
  367. :LABEL039
  368.     PUTUSER 
  369.     PRINTLN ""
  370.     PRINTLN "Your subscription will expire on ",U_EXPDATE
  371.     PRINTLN ""
  372.     PRINTLN "@X0FThank you @X0D@USER@ @X0Ffor your order"
  373.     LOG "Completed Credit Card Processing!",0
  374.     MESSAGE 0,"SYSOP","OCCPS","Credit Card Registration","R",0,0,0,PPEPATH()+"NOTIFY.TXT"
  375.     MESSAGE 0,U_NAME(),"SYSOP","BBS Subscription","R",0,0,0,PPEPATH()+"USERMSG.TXT"
  376.     LET VAR035=PPEPATH()+"INFORM"
  377.     IF (!EXIST(VAR035)) GOTO LABEL040
  378.     DISPFILE PPEPATH()+"INFORM",2+1+4
  379.     DELAY 91
  380.  
  381. :LABEL040
  382.     END 
  383.  
  384.  
  385. ;------------------------------------------------------------------------------
  386. ;Statements used:
  387. ;
  388. ;     6 END
  389. ;     4 CLS
  390. ;     1 WAIT
  391. ;    41 GOTO
  392. ;    39 LET
  393. ;    79 PRINTLN
  394. ;    27 IF
  395. ;     3 DISPFILE
  396. ;     2 FOPEN
  397. ;     1 FAPPEND
  398. ;     6 FCLOSE
  399. ;     2 FGET
  400. ;    18 FPUTLN
  401. ;     1 GETUSER
  402. ;     1 PUTUSER
  403. ;     9 LOG
  404. ;    10 INPUTSTR
  405. ;     1 INPUTINT
  406. ;     1 INPUTCC
  407. ;    14 GOSUB
  408. ;     4 DELAY
  409. ;     1 KBDSTUFF
  410. ;     1 CALL
  411. ;     3 MESSAGE
  412. ;
  413. ;Functions used:
  414. ;
  415. ;    99 +
  416. ;    18 =
  417. ;     2 <>
  418. ;     3 <
  419. ;    30 !
  420. ;     1 &
  421. ;    31 MID
  422. ;     6 LEFT
  423. ;     2 RIGHT
  424. ;     2 FERR
  425. ;     1 CHR
  426. ;    28 ASC
  427. ;     1 RTRIM
  428. ;     6 DATE
  429. ;     1 TIME
  430. ;     2 U_NAME
  431. ;     1 YEAR
  432. ;     3 MONTH
  433. ;    15 STRING
  434. ;     1 MASK_ALPHA
  435. ;     2 MASK_NUM
  436. ;     5 MASK_ALNUM
  437. ;    13 PPEPATH
  438. ;     6 READLINE
  439. ;     3 CURSEC
  440. ;     2 EXIST
  441. ;     1 VALCC
  442. ;     2 FMTCC
  443. ;     6 CCTYPE
  444. ;
  445. ;------------------------------------------------------------------------------
  446. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  447. ;------------------------------------------------------------------------------
  448.